home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / opal / renumb.lzh / renum.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-10  |  801b  |  48 lines
  1. /* renamefiles by Mischa Lockton 1/10/93 */
  2.  
  3. /* the purpose of this script is to take ODD
  4. ** numbered frames, rendered in Imagine, etc.
  5. ** and renumber them comsecutively so that
  6. ** Opalanimate can handle them...
  7. */
  8.  
  9.  
  10. ADDRESS "ADPro"
  11. OPTIONS RESULTS
  12.  
  13. loadappend = .0001
  14. saveappend = .0001
  15.  
  16. say 'Load directory?'
  17. pull DIREC
  18.  
  19. say 'Save directory?'
  20. pull SDIREC
  21.  
  22. say 'Filename?'
  23. pull FILE
  24.  
  25. say 'No. of frames?'
  26. pull FRAMES
  27.  
  28. LFORMAT "IFF"
  29. SFORMAT "IFF"
  30.  
  31. ADPRO_TO_FRONT
  32.  
  33. do loop = 1 to frames
  34.    LOADAPPEND = right(loadappend,5)
  35.    SAVEAPPEND = right(saveappend,5)
  36.    LOADFILE = DIREC||FILE||LOADAPPEND
  37.    SAVEFILE = SDIREC||FILE||SAVEAPPEND
  38.    LOAD loadfile
  39.    SAVE savefile RAW
  40.    LOADAPPEND = loadappend + .0002
  41.    SAVEAPPEND = saveappend + .0001
  42.  END
  43.                    
  44. ADPRO_TO_BACK
  45.  
  46. say 'All done!'
  47.  
  48.